home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 128 / SGDS 128.2mg / SDGS.128 / SDD128 / D / PS.START (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-05-09  |  2.4 KB  |  125 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ROT= 0: SPEED= 255: REM <CTRL-0x0d>(C)1991
  2. 100  PRINT  CHR$(21)
  3. 110  HGR : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1): CALL 2224
  4. 140  POKE 104,15: POKE 15 *256,0: RUN : REM run the actual
  5. 160  REM 15 space namee above so it can be changed
  6. 0 AL
  7. 19464  +<CTRL-0x08>8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x0b> IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x0b> IF _ TAB(  IF ) TAB( ) SIN PLOT ) TAB( ` HGR2 <CTRL-0x01>` IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF _ TAB(  IF ) TAB( ) SIN PLOT ) TAB( `"
  8. 36286  CHR$<CTRL-0x0b> IF 1 GET  PLOT  LEFT$<CTRL-0x0b> SPEED=  TAB(  DEL 
  9. 389  SPEED= 
  10. 20653  TAB(  IF R TAB(  IF W TAB(  ONERR  ASC -@ = <CTRL-0x04> IF U TAB( ` IF T TAB(  SPEED=   DEL  ASC` END  END  END  END  END  END  END  END 
  11. 32896  END  END  END  END  END 
  12. 32896  END  END  END  END  END 
  13. 32896  END  END  END  END  END (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = 
  14. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  15. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  16. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  17. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  18. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  19. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f> J<UNKNOWN TOKEN> ONERR E) -  GOSUB <CTRL-0x03>L LOAD <CTRL-0x0b> PLOT +<CTRL-0x0b><CTRL-0x0a><CTRL-0x0a>.\<CTRL-0x0b><CTRL-0x0a>.\<CTRL-0x0b> PLOT [<CTRL-0x0b> IF \<CTRL-0x0b>)<CTRL-0x03>i<CTRL-0x0b> PLOT \<CTRL-0x0b> ONERR % STORE  -<CTRL-0x13> HGR2 <CTRL-0x02> SPEED= <CTRL-0x12><CTRL-0x0a> DEL <CTRL-0x02><CTRL-0x0a><CTRL-0x0a>e<CTRL-0x02> TAB( <CTRL-0x05><UNKNOWN TOKEN><CTRL-0x0b> TAB( <CTRL-0x12><UNKNOWN TOKEN><CTRL-0x06> TAB( <CTRL-0x0c> = <CTRL-0x05> RIGHT$<CTRL-0x04><CTRL-0x18>i<CTRL-0x01> DEL <CTRL-0x02> PLOT  XDRAW <CTRL-0x0b> ONERR $ DEL 
  20. 36871 <CTRL-0x04> ASC
  21. 1897  DEL <CTRL-0x06> LOMEM: 2 +<UNKNOWN TOKEN><CTRL-0x02> COLOR=  CALL ^<CTRL-0x0b> ASC<CTRL-0x02> SPEED= s VTAB <CTRL-0x09> *<UNKNOWN TOKEN><CTRL-0x09> EXP LEFT$<CTRL-0x0b> = <UNKNOWN TOKEN> SPEED= <UNKNOWN TOKEN> = <CTRL-0x02> SPEED=  =  COLOR= <CTRL-0x07> INPUT <CTRL-0x05> PLOT  FOR <CTRL-0x0b> LOMEM: <CTRL-0x02> POKE @<CTRL-0x09><CTRL-0x18>e  DEL & POKE 
  22. 34278 ' LOMEM: 
  23. 1157  IF <CTRL-0x01><CTRL-0x0c>I
  24. 9738 <CTRL-0x04> *<CTRL-0x10><UNKNOWN TOKEN>j DEL <CTRL-0x03> RESUME <CTRL-0x06> RETURN &=<UNKNOWN TOKEN><CTRL-0x0b><CTRL-0x05><CTRL-0x03> HGR & + RETURN &=<UNKNOWN TOKEN><CTRL-0x0b><CTRL-0x05><CTRL-0x04> HGR & ASC<CTRL-0x02> = <CTRL-0x05>  OR [<CTRL-0x0b> ASC<CTRL-0x05><UNKNOWN TOKEN>[<CTRL-0x0b> SPEED=  =   NOT <CTRL-0x05><CTRL-0x10> &  ONERR <CTRL-0x02>8 RIGHT$( -<CTRL-0x0a><UNKNOWN TOKEN><CTRL-0x06> -<CTRL-0x01><UNKNOWN TOKEN>E GOSUB <CTRL-0x05> IF  XDRAW <CTRL-0x0b> DEL <CTRL-0x02> SPEED= 
  25. 43275 <CTRL-0x0c> PLOT \<CTRL-0x0b> ASC<CTRL-0x05> SPEED=  = L@<CTRL-0x0b> -<CTRL-0x14><UNKNOWN TOKEN><CTRL-0x1b> -<CTRL-0x0c> = % X<UNKNOWN TOKEN>8 ONERR # VAL" STORE  RESUME ! J<UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> X<UNKNOWN TOKEN>L LEN<CTRL-0x0b> SPEED= # DEL ! SPEED= 
  26. 8837  SPEED= <CTRL-0x13> DEL # ?<UNKNOWN TOKEN>L<UNKNOWN TOKEN><UNKNOWN TOKEN> gjpqy_ END  FOR  DATA  READ  VLIN  FLASH  NEW <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> TAN TAB(  END  GET 
  27. 3084 <CTRL-0x0c><CTRL-0x0c>
  28. 13107 66666
  29. 7695 <<CTRL-0x1f><CTRL-0x0c>
  30. 3096 <CTRL-0x06>33
  31. 28187 ;3n
  32. 6 
  33. 1542 <CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  34. 12336 0<CTRL-0x18><CTRL-0x0c>
  35. 16140 <CTRL-0x0c><CTRL-0x1e><CTRL-0x18><CTRL-0x18>~~<CTRL-0x18><CTRL-0x18><CTRL-0x0c><CTRL-0x0c><CTRL-0x06>~~
  36. 12 
  37. 1548 <CTRL-0x03>
  38. 15155 ?73<CTRL-0x1e>
  39. 3084 <CTRL-0x0c><CTRL-0x0c>?
  40. 7728 <CTRL-0x03><CTRL-0x03>?
  41. 7216 03<CTRL-0x1e>
  42. 6939 ?<CTRL-0x18><CTRL-0x18>
  43. 12319 03<CTRL-0x1e>
  44. 7939 33<CTRL-0x1e>
  45. 3096 <CTRL-0x06><CTRL-0x06><CTRL-0x06>
  46. 7731 33<CTRL-0x1e>
  47. 15923 03<CTRL-0x1e>
  48. 12 <CTRL-0x0c><CTRL-0x0c>
  49. 6144 <CTRL-0x18><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x06><CTRL-0x03><CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  50. 62 >>
  51. 6156 0<CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  52. 6192 <CTRL-0x0c>
  53. 25406 og<CTRL-0x1b>c>
  54. 13107 ?33
  55. 7987 33<CTRL-0x1f>
  56. 771 <CTRL-0x03>3<CTRL-0x1e>
  57. 13107 33<CTRL-0x1f>
  58. 3843 <CTRL-0x03><CTRL-0x03>?
  59. 3843 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  60. 15107 33<CTRL-0x1e>
  61. 16179 333
  62. 3084 <CTRL-0x0c><CTRL-0x0c>?
  63. 12336 03<CTRL-0x1e>
  64. 3871 <CTRL-0x1f>33
  65. 771 <CTRL-0x03><CTRL-0x03>?
  66. 13119 333
  67. 16183 ;33
  68. 13107 33<CTRL-0x1e>
  69. 7987 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  70. 13107 3<CTRL-0x1b>6
  71. 7987 <CTRL-0x0f><CTRL-0x1b>3
  72. 7683 03<CTRL-0x1e>
  73. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  74. 13107 33<CTRL-0x1e>
  75. 13107 3<CTRL-0x1e><CTRL-0x0c>
  76. 13107 ??3
  77. 3102 <CTRL-0x1e>33
  78. 3102 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  79. 3096 <CTRL-0x06><CTRL-0x03>?
  80. 1542 <CTRL-0x06><CTRL-0x06><CTRL-0x1e>
  81. 3078 <CTRL-0x18>0`
  82. 12336 00<
  83. 102 
  84. 3084 <CTRL-0x18>
  85. 13118 >
  86. 13087 33<CTRL-0x1f><CTRL-0x1e>3<CTRL-0x03>3<CTRL-0x1e>
  87. 13118 33><CTRL-0x1e>3<CTRL-0x1f><CTRL-0x03><CTRL-0x1e>
  88. 16140 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  89. 13107 3>0<CTRL-0x1e><CTRL-0x03><CTRL-0x03><CTRL-0x1f>3333
  90. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  91. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x07><CTRL-0x03><CTRL-0x03>3<CTRL-0x1f><CTRL-0x0f><CTRL-0x1f>3
  92. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>3??33<CTRL-0x1f>3333<CTRL-0x1e>333<CTRL-0x1e>
  93. 13107 3<CTRL-0x1f><CTRL-0x03><CTRL-0x03>
  94. 13107 >00
  95. 819 <CTRL-0x03><CTRL-0x03><CTRL-0x1e><CTRL-0x03><CTRL-0x1e>0<CTRL-0x1e>
  96. 3135 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1c>3333<CTRL-0x1e>333<CTRL-0x1e><CTRL-0x0c>33??33<CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>3
  97. 13107 <CTRL-0x1e><CTRL-0x0c><CTRL-0x06><CTRL-0x03>
  98. 3096 <CTRL-0x06>?
  99. 1548 <CTRL-0x0c><CTRL-0x0c>8
  100. 6168 <CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x07><CTRL-0x0c><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x0c><CTRL-0x07>
  101. 27 
  102. 32639 
  103. 10 D$ =  CHR$(4)
  104. 20  FOR PG = 1 TO 2
  105. 30  PRINT D$"-ps.rpk"PG
  106. 40  IF PG >1  THEN 60
  107. 41  VTAB 3: HTAB 3: PRINT "Copyright 1992 by Softdisk Inc."
  108. 42  VTAB 4: HTAB 5: PRINT "Published on Softdisk #128."
  109. 44  VTAB 6: HTAB 2: PRINT "Fonts created by Michael Mueller."
  110. 50  VTAB 14: HTAB 1: PRINT "DISK font.": PRINT "(1-9 and A-Z)"
  111. 55  GOSUB 800: GOTO 200
  112. 60 :
  113. 70  VTAB 10: PRINT "LEAF font. (Punctuation": PRINT "plus 0-9 and A-Z)"
  114. 77  VTAB 18: PRINT "SEMAPHORE font. (0-9 and A-Z)"
  115. 80  GOSUB 850
  116. 200  NEXT : GOTO 20
  117. 800 V = 15:H = 26: GOTO 900
  118. 850 V = 1:H = 26
  119. 900  VTAB V: HTAB H: PRINT "Press any": VTAB V +1: HTAB H: PRINT " key to ": VTAB V +2: HTAB H: PRINT "continue."
  120. 910  VTAB V +4: HTAB H: PRINT "ESC quits"
  121. 920  GET A$: IF A$ < > CHR$(27)  THEN  RETURN 
  122. 930  VTAB V: HTAB H: PRINT " Do you  ": VTAB V +1: HTAB H: PRINT " want to": VTAB V +2: HTAB H: PRINT "  quit?  ": VTAB V +4: HTAB H: PRINT "  (Y/N)  "
  123. 940  GET A$: IF A$ = "y"  OR A$ = "Y"  THEN  CALL 2227: PRINT D$"BYE"
  124. 950  IF A$ < >"n"  AND A$ < >"N"  THEN 940
  125. 960  GOTO 900